home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / mcdsk-32 / mcdsk-32.bas < prev    next >
Encoding:
BASIC Source File  |  1996-08-06  |  11.9 KB  |  164 lines
  1. Attribute VB_Name = "MCDSK_32_DEF"
  2. Option Explicit
  3.  
  4. ' file
  5.  
  6. '  definition for error type for ISFileNameVALID
  7. Public Const IFV_ERROR = 0
  8. Public Const IFV_NAME_TOO_LONG = 1
  9. Public Const IFV_EXT_TOO_LONG = 2
  10. Public Const IFV_TOO_MANY_BACKSLASH = 3
  11. Public Const IFV_BAD_DRIVE_LETTER = 4
  12. Public Const IFV_BAD_COLON_POS = 5
  13. Public Const IFV_EXT_WITHOUT_NAME = 6
  14.  
  15. ' definition for sFile attributes
  16. Public Const A_RDONLY = &H1             'Read only file
  17. Public Const A_HIDDEN = &H2             'Hidden file
  18. Public Const A_SYSTEM = &H4             'System file
  19. Public Const A_SUBDIR = &H10            'Subdirectory
  20. Public Const A_ARCHIVE = &H20           'Archive file
  21. Public Const A_NORMAL = &H80            'Normal sFile - No read/write restrictions
  22. Public Const A_COMPRESSED = &H800       'Compressed file
  23. Public Const A_NORMAL_ARCHIVE = &HFE    'Normal, Archive
  24. Public Const A_ALL = &HFF               'Normal, Archive, Read-Only, Hidden, System
  25.  
  26. ' definition for drive type
  27. Public Const DRIVE_UNKNOWN = 0
  28. Public Const DRIVE_NO_ROOT_DIR = 1
  29. Public Const DRIVE_REMOVABLE = 2
  30. Public Const DRIVE_FIXED = 3
  31. Public Const DRIVE_REMOTE = 4
  32. Public Const DRIVE_CDROM = 5
  33. Public Const DRIVE_RAMDISK = 6
  34.  
  35. '  definition for sFile sort
  36. Public Const SORT_ASCENDING = 1
  37. Public Const SORT_DESCENDING = 2
  38. Public Const SORT_CASE_SENSITIVE = 4
  39. Public Const SORT_CASE_INSENSITIVE = 8
  40.  
  41. ' definition for sFile I/O
  42. Public Const EOFILE = -1
  43. Public Const SEEK_CUR = 1
  44. Public Const SEEK_END = 2
  45. Public Const SEEK_SET = 0
  46.  
  47. ' definition for sFile uucp
  48. Public Const MODE_UUENCODE = 0
  49. Public Const MODE_UUDECODE = 1
  50.  
  51. '  structure for sFile attributes
  52. Type FileAttributeType
  53.    ErrNo             As Integer
  54.    Archive           As Integer
  55.    Hidden            As Integer
  56.    Normal            As Integer
  57.    ReadOnly          As Integer
  58.    SubDir            As Integer
  59.    System            As Integer
  60.    Compressed        As Integer
  61. End Type
  62.  
  63. '  structure for split path
  64. Type tagSPLITPATH
  65.    nDrive            As String
  66.    nDir              As String
  67.    nName             As String
  68.    nExt              As String
  69. End Type
  70.  
  71. Declare Function cAllSubDirectories Lib "mcdsk-32.dll" (ByVal lpBaseDirectory As String, nDir As Long) As String
  72. Declare Function cChDir Lib "mcdsk-32.dll" (ByVal lpDir As String) As Integer
  73. Declare Function cChDrive Lib "mcdsk-32.dll" (ByVal lpDrive As String) As Integer
  74. Declare Function cCmpFileAttribute Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  75. Declare Function cCmpFileContents Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String, ByVal Sensitivity As Integer) As Integer
  76. Declare Function cCmpFileSize Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  77. Declare Function cCmpFileTime Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Integer
  78. Declare Function cCountDirectories Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  79. Declare Function cCountFiles Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  80. Declare Function cFileSize Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Long
  81. Declare Function cIsFilenameValid Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  82. Declare Function cIsFileArchive Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  83. Declare Function cIsFileEmpty Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  84. Declare Function cIsFileFlag Lib "mcdsk-32.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  85. Declare Function cIsFileHidden Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  86. Declare Function cIsFileNormal Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  87. Declare Function cIsFileReadOnly Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  88. Declare Function cIsFileSubDir Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  89. Declare Function cIsFileSystem Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  90. Declare Function cIsFileCompressed Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  91. Declare Function cKillDir Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  92. Declare Function cKillDirFilesAll Lib "mcdsk-32.dll" (ByVal lpDir As String, ByVal lpMask As String) As Integer
  93. Declare Function cKillDirs Lib "mcdsk-32.dll" (ByVal lpDir As String, ByVal HeaderDirectory As Integer) As Integer
  94. Declare Function cKillFile Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  95. Declare Function cKillFileAll Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  96. Declare Function cKillFiles Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  97. Declare Function cKillFilesAll Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  98. Declare Function cMakeDir Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  99. Declare Function cMakeMultipleDir Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  100. Declare Function cFileResetAllAttrib Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  101. Declare Function cFileResetArchive Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  102. Declare Function cFileResetFlag Lib "mcdsk-32.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  103. Declare Function cFileResetHidden Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  104. Declare Function cFileResetReadOnly Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  105. Declare Function cFileResetSystem Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  106. Declare Function cFileSetAllAttrib Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  107. Declare Function cFileSetArchive Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  108. Declare Function cFileSetAttrib Lib "mcdsk-32.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer
  109. Declare Function cFileSetFlag Lib "mcdsk-32.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  110. Declare Function cFileSetHidden Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  111. Declare Function cFileSetReadOnly Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  112. Declare Function cFileSetSystem Lib "mcdsk-32.dll" (ByVal nFilename As String) As Integer
  113. Declare Function cUniqueFileName Lib "mcdsk-32.dll" (Txt As String) As String
  114. Declare Function cFileCopy Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  115. Declare Function cFileCopy2 Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  116. Declare Function cFileDrive Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  117. Declare Function cFileGetAttrib Lib "mcdsk-32.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer
  118. Declare Function cFileMove Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  119. Declare Function cFilePathExists Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Integer
  120. Declare Function cFilesSize Lib "mcdsk-32.dll" (ByVal nFilename As String) As Double
  121. Declare Function cFilesSizeOnDisk Lib "mcdsk-32.dll" (ByVal nFilename As String) As Double
  122. Declare Function cFilesSlack Lib "mcdsk-32.dll" (ByVal nFilename As String, Size1 As Double, Size2 As Double) As Integer
  123. Declare Function cGetDiskClusterSize Lib "mcdsk-32.dll" (ByVal lpDrive As String) As Double
  124. Declare Function cGetDiskFree Lib "mcdsk-32.dll" (ByVal lpDrive As String) As Double
  125. Declare Function cGetDiskSpace Lib "mcdsk-32.dll" (ByVal lpDrive As String) As Double
  126. Declare Function cGetDiskUsed Lib "mcdsk-32.dll" (ByVal lpDrive As String) As Double
  127. Declare Function cRcsCountFileDir Lib "mcdsk-32.dll" (ByVal FileOrDir As Integer, ByVal FirstFileOrDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Integer
  128. Declare Function cRcsFilesSize Lib "mcdsk-32.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Double
  129. Declare Function cRcsFilesSizeOnDisk Lib "mcdsk-32.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Double
  130. Declare Function cRcsFilesSlack Lib "mcdsk-32.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer, Size1 As Double, Size2 As Double) As Integer
  131. Declare Function cSubDirectory Lib "mcdsk-32.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String
  132. Declare Function cFileChangeChars Lib "mcdsk-32.dll" (ByVal nFilename As String, CharSet As String, NewCharSet As String, ByVal nFileTemp As String) As Long
  133. Declare Function cFileCompressTab Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String, ByVal nTab As Long) As Long
  134. Declare Function cFileExpandTab Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String, ByVal nTab As Long) As Long
  135. Declare Function cFileFilter Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String, Filter As String) As Long
  136. Declare Function cFileFilterNot Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String, Filter As String) As Long
  137. Declare Function cFileLineCount Lib "mcdsk-32.dll" (ByVal lpFilename As String) As Long
  138. Declare Function cFileMerge Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String, ByVal fileTo As String) As Long
  139. Declare Function cFileSearch Lib "mcdsk-32.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long
  140. Declare Function cFileSearchAndReplace Lib "mcdsk-32.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Replace As String, ByVal nFileTemp As String, ByVal Sensitivity As Integer) As Long
  141. Declare Function cFileSearchCount Lib "mcdsk-32.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long
  142. Declare Function cFileToUpper Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  143. Declare Function cFileToLower Lib "mcdsk-32.dll" (ByVal File1 As String, ByVal File2 As String) As Long
  144. Declare Function cTruncatePath Lib "mcdsk-32.dll" (ByVal nFilename As String, ByVal NewLength As Long) As String
  145. Declare Function cFullPath Lib "mcdsk-32.dll" (ByVal nFilename As String) As String
  146. Declare Function cMakePath Lib "mcdsk-32.dll" (ByVal nDrive As String, ByVal nDir As String, ByVal nFilename As String, ByVal Ext As String) As String
  147. Declare Function cSplitPath Lib "mcdsk-32.dll" (ByVal nFilename As String, SPLITPATH As Any) As Integer
  148. Declare Function cFileDateCreated Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  149. Declare Function cFileLastDateAccess Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  150. Declare Function cFileLastDateModified Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  151. Declare Function cFileTimeCreated Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  152. Declare Function cFileLastTimeAccess Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  153. Declare Function cFileLastTimeModified Lib "mcdsk-32.dll" (ByVal lpFilename As String) As String
  154. Declare Function cGetDriveType Lib "mcdsk-32.dll" (ByVal lpDrive As String) As Integer
  155. Declare Function cFileSort Lib "mcdsk-32.dll" (ByVal FileIn As String, ByVal FileOut As String, ByVal SortMethod As Integer, ByVal RecordLength As Long, ByVal KeyOffset As Long, ByVal KeyLength As Long, rRecords As Long) As Long
  156. Declare Function cFileStatistics Lib "mcdsk-32.dll" (ByVal nFilename As String, nLines As Long, nWords As Long, nChars As Long) As Long
  157. Declare Function cFilesInDirectory Lib "mcdsk-32.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String
  158. Declare Function cFilesInDirOnDisk Lib "mcdsk-32.dll" (ByVal nFile As String, ByVal nFilename As String, ByVal nAttribute As Integer) As Integer
  159. Declare Function cFilesInDirToArray Lib "mcdsk-32.dll" (ByVal nFilename As String, ByVal nAttribute As Integer, array() As String) As Integer
  160. Declare Function cRenameFile Lib "mcdsk-32.dll" (ByVal lpFilename1 As String, ByVal lpFilename2 As String) As Integer
  161. Declare Function cSearchFile Lib "mcdsk-32.dll" (ByVal lpStartPath As String, ByVal lpFileMask As String, ByVal lpFileResult As String) As Long
  162. Declare Function cFileUUCP Lib "mcdsk-32.dll" (ByVal lpFilename1 As String, ByVal lpFilename2 As String, ByVal EncodeDecode As Integer) As Long
  163.  
  164.